var Vec1,Vec2: TVecInt; V: TMtxInt; begin CreateIt(Vec1,Vec2); CreateIt(V); try Vec1.Size(3); Vec1.SetIt([0,2,3] Vec2.Copy(Vec1); V.TensorProd(Vec1,Vec2); // V becomes: // [0,0,0] // [0,4,6] // [0,6,9] finally FreeIt(Vec1,Vec2); FreeIt(V); end; end;